home *** CD-ROM | disk | FTP | other *** search
/ Nothing but Tetris / Nothing but Tetris.iso / menu.lha / IBMPC / MIXED2 / T3TRIS / T3MENU.BAT < prev    next >
Encoding:
DOS Batch File  |  1980-01-06  |  1.8 KB  |  101 lines
  1. @echo off
  2. if "%1"=="" goto :defcd
  3. cd %1
  4. :defcd
  5. if exist t3tris.exe goto :isthere
  6. echo File T3TRIS.EXE is not in specified directory
  7. goto :end
  8. :isthere
  9. echo T3TRIS Menu
  10. echo Choose one:
  11. echo.   1 = one-player game
  12. echo.   2 = two-player, competitive game
  13. echo.   3 = two-player, cooperative game
  14. ask3 "--> " 123
  15. if errorlevel 3 goto :thr
  16. if errorlevel 2 goto :two
  17. if errorlevel 1 goto :one
  18. goto :end
  19. :one
  20. ask3 "Music? [y/n] " yYnN
  21. if errorlevel 3 goto :onenom
  22. if errorlevel 1 goto :onemus
  23. goto :end
  24. :onemus
  25. ask3 "Show next piece? [y/n] " yYnN
  26. if errorlevel 3 goto :onemusnox
  27. if errorlevel 1 goto :onemusnxt
  28. goto :end
  29. :onemusnxt
  30. t3tris -1x
  31. goto :end
  32. :onemusnox
  33. t3tris -1
  34. goto :end
  35. :onenom
  36. ask3 "Show next piece? [y/n] " yYnN
  37. if errorlevel 3 goto :onenomnox
  38. if errorlevel 1 goto :onenomnxt
  39. goto :end
  40. :onenomnxt
  41. t3tris -1nx
  42. goto :end
  43. :onenomnox
  44. t3tris -1n
  45. goto :end
  46. :two
  47. ask3 "Music? [y/n] " yYnN
  48. if errorlevel 3 goto :twonom
  49. if errorlevel 1 goto :twomus
  50. goto :end
  51. :twomus
  52. ask3 "Show next piece? [y/n] " yYnN
  53. if errorlevel 3 goto :twomusnox
  54. if errorlevel 1 goto :twomusnxt
  55. goto :end
  56. :twomusnxt
  57. t3tris -2x
  58. goto :end
  59. :twomusnox
  60. t3tris -2
  61. goto :end
  62. :twonom
  63. ask3 "Show next piece? [y/n] " yYnN
  64. if errorlevel 3 goto :twonomnox
  65. if errorlevel 1 goto :twonomnxt
  66. goto :end
  67. :twonomnxt
  68. t3tris -2nx
  69. goto :end
  70. :twonomnox
  71. t3tris -2n
  72. goto :end
  73. :thr
  74. ask3 "Music? [y/n] " yYnN
  75. if errorlevel 3 goto :thrnom
  76. if errorlevel 1 goto :thrmus
  77. goto :end
  78. :thrmus
  79. ask3 "Show next piece? [y/n] " yYnN
  80. if errorlevel 3 goto :thrmusnox
  81. if errorlevel 1 goto :thrmusnxt
  82. goto :end
  83. :thrmusnxt
  84. t3tris -3x
  85. goto :end
  86. :thrmusnox
  87. t3tris -3
  88. goto :end
  89. :thrnom
  90. ask3 "Show next piece? [y/n] " yYnN
  91. if errorlevel 3 goto :thrnomnox
  92. if errorlevel 1 goto :thrnomnxt
  93. goto :end
  94. :thrnomnxt
  95. t3tris -3nx
  96. goto :end
  97. :thrnomnox
  98. t3tris -3n
  99. goto :end
  100. :end
  101.